Código fuente de 'Busca y reemplaza.asp'
<html>
<head>
<title>Busca y reemplaza - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Busca y reemplaza</font></b></p>
<body style="font-family: Arial; font-size: 11pt">
Aquí tenéis una función a la que se le pasa el texto original, la cadena a buscar, y la cadena por la que se la reemplaza. <br>
En este ejemplo: <br>
<br>
<u>Cadena original:</u> <br>
buscadentrode="la casa salada lamer Lastre ALABAMA lAs aLa loLAilo"<br>
<br>
<u>Cadena a buscar:</u><br>
buscalacadena="la"<br>
<br>
<u>Cadena por la que se reemplaza:</u><br>
reemplazacon="<Font color='red'><b>" & buscalacadena & "</b></font>"<br>
<br>
<u>Resultado:</u><br>
<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
Function stringReplace(buscadentrode,buscalacadena)
Dim lngStartingPosition
Dim lngFoundPosition
Dim strReplaced
'Set the start position
lngStartingPosition=1
lngFoundPosition=InStr(lngStartingPosition,buscadentrode,buscalacadena,1)
do while lngFoundPosition > 0
'found
strReplaced=strReplaced & Mid(buscadentrode,lngStartingPosition,lngFoundPosition-lngStartingPosition) & "<font color='red'>" & mid(buscadentrode,lngFoundPosition,len(buscalacadena)) & "</font>"
lngStartingPosition=lngFoundPosition+len(buscalacadena)
lngFoundPosition=InStr(lngStartingPosition,buscadentrode,buscalacadena,1)
Loop
stringReplace=strReplaced & Mid(buscadentrode,lngStartingPosition) 'catch the last one
End Function
</SCRIPT>
<%
Dim buscadentrode,buscalacadena
buscadentrode="la casa salada lamer Lastre ALABAMA lAs aLa loLAilo"
buscalacadena="la"
Response.Write stringReplace(buscadentrode,buscalacadena)
%>
</body>
</html>